Private Sub Ndres(ByVal x As String, Optional ByVal y As String = "ַ")
        Dim Temp As String
        Temp = x & y
        ListBox1.Items.Add(Temp)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strName As String
        strName = "š "
        Ndres(strName)                     'ṩһ
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strName, strAddress As String
        strName = "  "
        strAddress = "ɶ·3"
        Ndres(strName, strAddress)         'ṩ
End Sub
